home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / pcharstr.ps < prev    next >
Encoding:
Text File  |  1997-09-11  |  3.6 KB  |  128 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1990, 1992, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pcharstr.ps
  19. % Print the CharStrings and Subrs (if present) from a Type 1 font,
  20. % in either a PostScript-like or a C-compatible form,
  21. % depending on whether CSFormat is defined as /PS or /C.
  22.  
  23. % Load the Type 1 utilities.
  24. (type1ops.ps) run
  25.  
  26. % Define the printing procedures for PostScript-like output.
  27. /pcs_ps_dict mark
  28.   /, {( ) print}
  29.   /charname {==only}
  30.   /csbegin {}
  31.   /beginchars {(%---------------- CharStrings\n) print}
  32.   /charbegin {==only}
  33.   /char1 {( ) print ==only}
  34.   /endchars {}
  35.   /beginsubrs {(%---------------- Subrs\n) print}
  36.   /subrbegin {=only}
  37.   /endsubrs {}
  38.   /beginboxes {(%---------------- Encoding & metrics\n) print}
  39.   /notdefbox {}
  40.   /boxbegin {=only ( ) print}
  41.   /boxend {(\n) print}
  42.   /endboxes {(%----------------\n) print}
  43. .dicttomark readonly def
  44.  
  45. % Define the printing procedures for C-like output.
  46. /pcs_c_dict mark
  47.   /, {(, ) print}
  48.   /charname {(") print =only (") print}
  49.   /csbegin {counttomark =only ,}
  50.   /beginchars {(\nconstdata int CSCharData[] = {\n) print}
  51.   /charbegin {pop}
  52.   /char1 {=only ,}
  53.   /endchars {
  54.     (-1\n};\nconstdata char *CSCharNames[] = {\n) print
  55.     CharStrings {pop charname ,} forall (0\n};\n) print
  56.   }
  57.   /beginsubrs {(\nconstdata int CSSubrs[] = {\n) print}
  58.   /subrbegin {pop}
  59.   /endsubrs {(-1\n};\n) print}
  60.   /beginboxes {(\nconstdata type1_box CSboxes[] = {\n) print}
  61.   /notdefbox {(  {""},\n) print}
  62.   /boxbegin {pop (  {) print}
  63.   /boxend {(},) =}
  64.   /endboxes {(  {0}\n};\n) print}
  65. .dicttomark readonly def
  66.  
  67. /printcs
  68.  { dup type /stringtype eq
  69.     { printcs1 (\n) print }
  70.     { ( ) print == }
  71.    ifelse
  72.  } bind def
  73. /printcs1
  74.  { save exch
  75.    lenIV 0 ge {
  76.      4330 exch dup length string .type1decrypt exch pop
  77.      dup length lenIV sub lenIV exch getinterval
  78.    } if
  79.    0 () /SubFileDecode filter
  80.    mark exch charstack_read csbegin
  81.    counttomark 1 sub -1 0 { index char1 } for
  82.    cleartomark restore
  83.  } bind def
  84.  
  85. /printfont
  86.  { pcs_ps_dict
  87.    /CSFormat where { pop CSFormat /C eq { pop pcs_c_dict } if } if
  88.    begin
  89.    currentfont begin Private begin 10 dict begin
  90.  
  91.     % Print the CharStrings and Subrs
  92.  
  93.    beginchars
  94.    CharStrings { exch charbegin printcs } forall
  95.    endchars
  96.    /Subrs where
  97.     { pop    % the dictionary
  98.       beginsubrs
  99.       0 1 Subrs length 1 sub
  100.        { dup subrbegin
  101.          Subrs exch get printcs
  102.        } for
  103.       endsubrs
  104.     } if
  105.  
  106.     % Print the bounding boxes
  107.  
  108.    gsave nulldevice FontMatrix matrix invertmatrix concat
  109.    beginboxes
  110.    0 1 Encoding length 1 sub
  111.     { dup Encoding exch get dup /.notdef eq
  112.        { pop pop notdefbox
  113.        }
  114.        { 1 index boxbegin charname ,
  115.          ( ) dup 0 4 -1 roll put
  116.          newpath 0 0 moveto false charpath
  117.      pathbbox ({) print 4 -1 roll =only ,
  118.      3 -1 roll =only , exch =only , =only (}) print
  119.          boxend
  120.        }
  121.       ifelse
  122.     } for
  123.    endboxes
  124.    grestore
  125.  
  126.    end end end end
  127.  } bind def
  128.